1 G=0
2 PRINT"[147]"
10 T$="ABRAHAM SAYS ABRACADABRA BUT NOTHING MOVES AT ALL. "
15 T$=T$+"SO ABRAHAM DECIDES TO FORGET ABOUT THE ABRACADABRA THING AND MOVES "
16 T$=T$+"THE TABLE USING HIS HANDS."
17 REM
18 REM
19 DIM Y(127):FORA=0TO127:Y(A)=1:NEXT
20 INPUT "SUCHWORT";P$:TS=TI
21 N=LEN(T$)
22 M=LEN(P$)
100 REM BOYER MOORE HORSPOOL
110 REM -- VORVERARBEITUNG VON P --
120 FOR A=64 TO 91
130 Y(A)=M
140 NEXT A
150 FOR J=1 TO M-1
155 Y(ASC(MID$(P$,J,1)))=M-J
170 NEXT J
190 REM ---  SUCHE ---
200 S=1
220 FOR J = M TO 2 STEP -1
230 IF MID$(P$,J,1)<>MID$(T$,S+J-1,1) GOTO 260
240 NEXT J
250 G=G+1
260 S=S+Y(ASC(MID$(T$,S+J-1,1)))
270 IF S<= N-M+1 GOTO 220
280 PRINT"DER STRING WURDE";G;"MAL GEFUNDEN"
290 PRINTTI-TS